var a,b:
Vector;
c: TDoubleArray;
begin
c := TDoubleArray.Create(1,1,1,1,1);
TVec(a).
CopyFromArray(c);
TVec(a).
Copy(b);
if a = b then ERaise('a and b are equal!');
if a = 1 then ERaise('a equals 1!');
//compare to real value
if a = Cplx(1,0) then ERaise('a equals 1!');
//compare to complex value
end;